DEKLARASI:
	detik, menit, jam, hari: integer
ALGORITMA:
	repeat
		write("Masukkan detik: ")
		read(detik)
	until detik <= -1

	hari <- detik/86400
	detik <- detik % 86400

	jam <- detik/3600
	detik <- detik % 3600

	menit <- detik/60
	detik <- detik % 60

	write("Hari: ", hari)
	writeln()
	write("Jam: ", jam)
	writeln()
	write("Menit: ", menit)
	writeln()
	write("Detik: ", detik)
	writeln()